Make CHECK_SUBR public

	* src/data.c (CHECK_SUBR): Move from here to...
	* src/lisp.h (CHECK_SUBR): ...to here.

diff --git a/src/data.c b/src/data.c
index 3f035269de1f68bde2daf779a3e07b2bb48f41af..8c39c3191108fb32e286a5ad318704ba3201e26b 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -87,12 +87,6 @@ XOBJFWD (lispfwd a)
   return a.fwdptr;
 }
 
-static void
-CHECK_SUBR (Lisp_Object x)
-{
-  CHECK_TYPE (SUBRP (x), Qsubrp, x);
-}
-
 static void
 set_blv_found (struct Lisp_Buffer_Local_Value *blv, int found)
 {

diff --git a/src/lisp.h b/src/lisp.h
index cbc6a6664717ad2461c746106575e59a37194598..452f48f346893f92dc3dde7ee02371650ca04f02 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2982,6 +2982,12 @@ CHECK_INTEGER (Lisp_Object x)
 {
   CHECK_TYPE (INTEGERP (x), Qnumberp, x);
 }
+
+INLINE void
+CHECK_SUBR (Lisp_Object x)
+{
+  CHECK_TYPE (SUBRP (x), Qsubrp, x);
+}
 \f
 
 /* If we're not dumping using the legacy dumper and we might be using